home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGSLC20.ZIP / AGSLC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-12-22  |  4KB  |  257 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     Integer  INTEGER026
  45.     Integer  INTEGER027
  46.     Integer  INTEGER028
  47.     Integer  INTEGER029
  48.     Integer  INTEGER030
  49.     Integer  INTEGER031
  50.     Integer  INTEGER032
  51.     Integer  INTEGER033
  52.     Integer  INTEGER034
  53.     Integer  INTEGER035
  54.     Integer  INTEGER036
  55.     Integer  INTEGER037
  56.     Integer  INTEGER038
  57.     Integer  INTEGER039
  58.     Integer  INTEGER040
  59.     String   STRING001
  60.     String   STRING002
  61.     String   STRING003
  62.     String   STRING004
  63.     String   STRING005
  64.     String   STRING006
  65.     String   STRING007
  66.     String   STRING008
  67.     String   STRING009
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     FOpen 1, PPEPath() + "AGSLC.CFG", 0, 0
  72.     FGet 1, STRING002
  73.     FGet 1, INTEGER001
  74.     FGet 1, INTEGER002
  75.     FGet 1, INTEGER003
  76.     FGet 1, INTEGER004
  77.     FGet 1, INTEGER005
  78.     FGet 1, INTEGER006
  79.     FGet 1, INTEGER007
  80.     FGet 1, INTEGER008
  81.     FGet 1, INTEGER009
  82.     FGet 1, INTEGER010
  83.     FGet 1, INTEGER011
  84.     FGet 1, INTEGER012
  85.     FGet 1, INTEGER013
  86.     FGet 1, INTEGER014
  87.     FGet 1, INTEGER015
  88.     FGet 1, INTEGER016
  89.     FGet 1, INTEGER017
  90.     FGet 1, INTEGER018
  91.     FGet 1, INTEGER019
  92.     FGet 1, INTEGER022
  93.     FGet 1, INTEGER023
  94.     FGet 1, INTEGER020
  95.     FGet 1, INTEGER021
  96.     FGet 1, STRING003
  97.     FGet 1, STRING004
  98.     FGet 1, STRING005
  99.     FGet 1, STRING006
  100.     FClose 1
  101.     If (Exist(PPEPath() + "AGSLCTMP." + String(PcbNode()))) Then
  102.         FOpen 1, PPEPath() + "AGSLCTMP." + String(PcbNode()), 0, 2
  103.         FGet 1, STRING001
  104.         FGet 1, INTEGER027
  105.         FGet 1, INTEGER028
  106.         FGet 1, INTEGER026
  107.         FGet 1, INTEGER025
  108.         FGet 1, STRING008
  109.         FClose 1
  110.         FOpen 1, PPEPath() + "AGSLC.DAT", 0, 2
  111.         FGet 1, STRING009
  112.         FGet 1, INTEGER029
  113.         FGet 1, INTEGER030
  114.         FGet 1, INTEGER034
  115.         FGet 1, INTEGER033
  116.         FGet 1, INTEGER032
  117.         FGet 1, INTEGER031
  118.         FGet 1, INTEGER035
  119.         FGet 1, INTEGER036
  120.         FGet 1, INTEGER040
  121.         FGet 1, INTEGER039
  122.         FGet 1, INTEGER038
  123.         FGet 1, INTEGER037
  124.         FClose 1
  125.         If (STRING009 <> String(Date())) Then
  126.             STRING009 = String(Date())
  127.             INTEGER029 = 0
  128.             INTEGER030 = 0
  129.             INTEGER033 = 0
  130.             INTEGER034 = 0
  131.             INTEGER031 = 0
  132.             INTEGER032 = 0
  133.         Endif
  134.         If (OnLocal() && (Upper(STRING003) == "N")) Goto LABEL001
  135.         INTEGER029 = INTEGER029 + 1
  136.         If (U_Logons() == 1) INTEGER030 = INTEGER030 + 1
  137.         If (U_Fdl() > INTEGER026) INTEGER033 = INTEGER033 + U_Fdl() - INTEGER026
  138.         If (U_Bdl() / 1024 > INTEGER025) INTEGER034 = INTEGER034 + U_Bdl() / 1024 - INTEGER025
  139.         If (U_Ful() > INTEGER027) INTEGER031 = INTEGER031 + U_Ful() - INTEGER027
  140.         If (U_Bul() / 1024 > INTEGER028) INTEGER032 = INTEGER032 + U_Bul() / 1024 - INTEGER028
  141.         If (INTEGER029 > INTEGER035) INTEGER035 = INTEGER029
  142.         If (INTEGER030 > INTEGER036) INTEGER036 = INTEGER030
  143.         If (INTEGER033 > INTEGER039) INTEGER039 = INTEGER033
  144.         If (INTEGER034 > INTEGER040) INTEGER040 = INTEGER034
  145.         If (INTEGER031 > INTEGER037) INTEGER037 = INTEGER031
  146.         If (INTEGER032 > INTEGER038) INTEGER038 = INTEGER032
  147.         FOpen 1, PPEPath() + "AGSLC.DAT", 0, 2
  148.         FCreate 2, PPEPath() + "AGSLCDAT." + String(PcbNode()), 1, 3
  149.         For INTEGER024 = 1 To 13
  150.             FGet 1, STRING007
  151.         Next
  152.         FPutLn 2, STRING009
  153.         FPutLn 2, INTEGER029
  154.         FPutLn 2, INTEGER030
  155.         FPutLn 2, INTEGER034
  156.         FPutLn 2, INTEGER033
  157.         FPutLn 2, INTEGER032
  158.         FPutLn 2, INTEGER031
  159.         FPutLn 2, INTEGER035
  160.         FPutLn 2, INTEGER036
  161.         FPutLn 2, INTEGER040
  162.         FPutLn 2, INTEGER039
  163.         FPutLn 2, INTEGER038
  164.         FPutLn 2, INTEGER037
  165.         GetUser
  166.         FPutLn 2, Mixed(U_Name())
  167.         FPutLn 2, U_City
  168.         If (U_Bdl() / 1024 - INTEGER025 < 100000) FPutLn 2, U_Bdl() / 1024 - INTEGER025
  169.         If (U_Bdl() / 1024 - INTEGER025 > 99999) FPutLn 2, "+1ooM"
  170.         If (U_Bul() / 1024 - INTEGER028 < 100000) FPutLn 2, U_Bul() / 1024 - INTEGER028
  171.         If (U_Bul() / 1024 - INTEGER028 > 99999) FPutLn 2, "+1ooM"
  172.         FPutLn 2, STRING008
  173.         If (!OnLocal()) FPutLn 2, Carrier()
  174.         If (OnLocal()) FPutLn 2, STRING004
  175.         For INTEGER024 = 1 To 72
  176.             FGet 1, STRING007
  177.             FPutLn 2, STRING007
  178.         Next
  179.         FClose 1
  180.         FClose 2
  181.         Delete PPEPath() + "AGSLC.DAT"
  182.         Rename PPEPath() + "AGSLCDAT." + String(PcbNode()), PPEPath() + "AGSLC.DAT"
  183.     Endif
  184.     :LABEL001
  185.     If (Exist(PPEPath() + "AGSLCTMP." + String(PcbNode()))) Delete PPEPath() + "AGSLCTMP." + String(PcbNode())
  186.     If (Upper(STRING005) == "Y") PrintLn STRING006 + String(MinOn())
  187.     End
  188.  
  189. ;------------------------------------------------------------------------------
  190. ;
  191. ; Usage report (before postprocessing)
  192. ;
  193. ; ■ Statements used :
  194. ;
  195. ;    1       End
  196. ;    7       Goto 
  197. ;    23      Let 
  198. ;    1       PrintLn 
  199. ;    24      If 
  200. ;    1       FCreate 
  201. ;    4       FOpen 
  202. ;    5       FClose 
  203. ;    49      FGet 
  204. ;    23      FPutLn 
  205. ;    1       GetUser
  206. ;    2       Delete 
  207. ;    1       Rename 
  208. ;
  209. ;
  210. ; ■ Functions used :
  211. ;
  212. ;    10      /
  213. ;    26      +
  214. ;    10      -
  215. ;    3       ==
  216. ;    1       <>
  217. ;    4       <
  218. ;    2       <=
  219. ;    12      >
  220. ;    4       >=
  221. ;    6       !
  222. ;    5       &&
  223. ;    2       ||
  224. ;    2       Upper()
  225. ;    2       Date()
  226. ;    1       U_Name()
  227. ;    1       U_Logons()
  228. ;    2       U_Ful()
  229. ;    2       U_Fdl()
  230. ;    5       U_Bdl()
  231. ;    5       U_Bul()
  232. ;    9       String()
  233. ;    11      PPEPath()
  234. ;    6       PcbNode()
  235. ;    3       OnLocal()
  236. ;    1       MinOn()
  237. ;    2       Exist()
  238. ;    1       Carrier()
  239. ;    1       Mixed()
  240. ;
  241. ;------------------------------------------------------------------------------
  242. ;
  243. ; Analysis flags : No flag
  244. ;
  245. ;------------------------------------------------------------------------------
  246. ;
  247. ; Postprocessing report
  248. ;
  249. ;    2       For/Next
  250. ;    0       While/EndWhile
  251. ;    2       If/Then or If/Then/Else
  252. ;    0       Select Case
  253. ;
  254. ;------------------------------------------------------------------------------
  255. ;                 AEGiS Corp - Break the routines, code against the machines!
  256. ;------------------------------------------------------------------------------
  257.